ARL VYA 
hHAMMOUE LL 


نصیرات 


[ASP.NET ]‏ 
نبذة عن المادة: 
هي أساسيات تصميم الصفحات والمواقع الديناميكية المطلوبة وسوق العمل » ويتعرف من خلاها 
الطالب على كيفية تصميم صفحات تفاعلية» يتم من خحلاها ربط الموقع بملفات وقواعد بيانات 
موحودة على الجهازالمزود. 


بسم الله الرحمن الرحيم 


ASP.NET : öةدlم‎ 


جامعة البلقاء التطبيقية-كلية الحصن الجامعية 
الاردن اربد يث راس 


قسم تكنولوحيا المعلومات 


اهدي هذا الكتاب الى امي وابي الحبيبين واحوت واقاري واخحوان 
المسلمين» وارحو أن يعود هذا الكتاب علیکہ بالفائدة 
Yahya linedyahoo. com‏ 


لغة الدوت نت 2008 


اولا : 


.Nel-— 


تعني بالانجليزية ( )ا0آ ٥٣2۳ع"‏ ) أي راطار العمل) 


۴ را ی ى 
اس ال ات 
کا ليحت عن المعلومات 


ت -الاشتراك ٤‏ لمعلومات 


- نتيجة لذلك جأ المبرجحون الى استخدام تطبيقات للمعالجة » هذه التطبيقات هي عبارة عن 
تقنيات معالجحة لصفحات الويب (86[) على اجهزة الخوادم. 
مغال على ذلك . لغة(٥‏ ۸58) 
CELO OETVET PoE GAP 2‏ 
لات 258 : 
أ - تطوير النظم باستخدام ۲ A5‏ امر معقد 
ب -ليست برجحية بحد ذاتا (استخدم )رون (vbScCcrFibÈ‏ 


ت -المشكلة واحهت مطوري نظم الوب ن اد و ار السات 


a HIE 
كانت تقليد » وتتم بتنسيق صفحات الويب‎ - 


۰ استخحدم‌ت فيها برو توکولات TCP‏ 


ايبات lغi ASP . Net‏ 
أ - يكتب البرنامج مرة واحدة»ويتم تنفيذه على كل منصات العمل . 


Notebook -Mob1l le : ٿال‎ - 


ب -ممکن ان تعمل على كل ختلف اصدارات نظم التشغيل. 
Windows = Unex = lonex : Jli -‏ 


بيغة التطوير المستخدمة في ڄ ASP. N٥‏ 
Web Developer 2008‏ 


لات التطوير اا ل 2 ۴% 
1. فيجوال ستديو ( 7 )٥C‏ 
2. ويب ديفيلوبير )2008 ; (Web Develo6p€F‏ 


8 بعضص المعلومات الهامة: 


تفظ ال ٥249م web‏ بامتداد Asp‏ 


- عند تنفيذ اليرنامج » تظهر صفحة ويب (صفحة انترنت). 


- مثال : النترنت اكglmرر)EX610F©F .(InternetlL‏ 


= ادف من هذه المادة »انشاء صفحات ويب وربطها م بعضها »من احل انشاءِ 
Webs1te‏ 


لتشغيل البرنامج : 


-اضغط زر البدء ٣24ا S‏ 


Microsoft Visual web جalرl‎ j -¬نخار‎ 
developer2008 


. للانشاء صفحة ويب : 


من شریط القروائم Me. 62۵٣‏ ختار ملف ٤1 1٥€‏ ومن تم موقع جدید 


new website 


-يظهر الصندوق ٥ا‏ 1 »۷©€65S‏ 1.6۷ وتار وحدة حدمة الويب الخاصة بلغة 


(ASP.Net webs1te) ASP.Net 


- وتار اللغة 8251٥‏ ۷15141 ومکان التخزین ومن م 0K‏ 


Visu‏ ا2 
File Edit View Project Euild Debug Data Tools Window Help‏ 


CELTIC TILE 1 
%-| . _Default.aspx.yb | Default.aspy’ 5' x Solution Explorer - WebA,.. w HF 3% 


هو العا ك اك 

Î WebApplication1 

..- 8 My Project 

:--- lı App_Data 

El Default.aspx 
i Web.config 


The current news channel might not be a valid RSS feed, or your internet 


lasslibrayl connection might be unavailable. To change the news channel, on the Tools‏ چ 


0 


Lreate! Web Site... | Project... 


E Database Ex... 


Properties w Hl 
WebApplicationl Project Propertl ” 


üetting Started a Solution Expl... 


Lreate Your First Web Site 
Video Feature Tour 
Learn Web Development 
E Development Server 
Always Start W True 
Misc 
Project File WebApplicationl.w 
Project Folder CAllsersijamt Docu 


Output 
Show output from: 


للبدء و 


3:06 PMI 
32010 


-او باستخدام S٤1٥‏ ي ال ۲€ S01u‏ داحل صفحة ال H' TM].‏ 


8 طرق تعريف المتغيرات : 


Partial Llaaa Default 
Inherits System, Web, U1, Page 


Protected sub Page Load(bylal sender As Ubject, ByVal € As System, LventArgs) 


End Sub 
End Llas3 


3 لاء ات معلاكحاة ؛ 


Websibe _Adg New I[1tem 
Web form 
1 لكتابة الكود‎ 3 
Design D(ەبيطلېع‎ Cc11cg 
: تعريف المتغير‎ 8# 


طرق تعريف المتغيرات :- 


Dim x AS أ -نوع للمتغیر‎ 


DIM XX AS SLILIING = NEWSLELNG - ب‎ 
DIM & AS SITTING = FHOAMMOURE™ 
DI *& 
Xx = 10 
: لتعريف اكثر من متغير‎ - 
DIM XX AS DONG, l1 yg I, € AE INlicegcrl, € ©8 
AS SEEING 


© فال ` 


DIMS AS. SELLING HELLO 
MSGBOX (x) 


- استخدام عبارة خ EXD 11C1‏ 
Explicit OFF o‏ "10ا Op‏ :- عبارة مسطورة ق اعلى الملف » فيمكنك 
استخدام المتفيرات والتعامل معها مباشرة دون الحاجة الى التصريح عنها ب (01۳) 
WOTIONn Explicit OILCF‏ 


14Partial Class Default 
Inherits System . Web. Ul. Page 


-[ Protected Sub Page Load(ByvVal sender As Gbject, 
gx = "hîhkjJh™ 
End Sub 


- End Class 


قابلية الرؤية (إ ح 01516111 وعمر المتغيرات : 


* الال التالي ببين أن المتغير × » يمكنك الوصول إليه في الإحراء () 1طMy5Su‏ 
واستخدامه» ولا كنك استخدامه من خارج الإجراء: 
SUG MYSUDL (0‏ 
VIM X.AS InNltegelf‏ 
Xx = 20‏ 
ENG OUD‏ 


SU. MVSUOZ 


اال الساق ٠ک‏ لا مل ار 
MSGBOX (X)‏ 
ENG SUD‏ 


١‏ عمر المتغير ع١1 ۴٠٤‏ 1.1 فتمثل الفترة القق يظل فيها المتغير حتفظا بقيمته» فالمتغير 
الموجود ٤‏ الشة السابقة» e‏ ويفقد افو 20 ال کان عحتفظا جا عمجرد الانتهاء من 


MVSUOL ()} dad 
أنواع المتغيرات من منظور الرؤية والعمر‎ - 


: (DVHamMIC LOCSL V4 7166163 ( الات احلا اليا‎ 


تغیرات يته الإعلان عنها داحل الإجراءات» وعمر المتغير يبدا من السطر الذي تصرح فيه عن المتغير 
وينتهى بعد الانتهاء من تنفيذ الإجراء. أما بالنسبة لقابلية الرؤية فهى حصورة داحل الإجراء الذي 


* أيضا للتصريح عن متغير حلي ديناميكي . 0110 تستخدم الكلمة امحجوزة 


For counter = 1 To 10 


Dim ¥ as integer 


رسالة طا 


' (SLBALIC LOCAT VAP ODIO ASN NEE 


هي نفس المتغيرات الحلية الديناميكية» المتغيرات الحلية الستاتيكية لذلك كل ما ق النوع السابقة ينطبق 
هنا دون أي احتلاف» باستثناء أن عمرها الافتراضى ابدي (أي يستمر المتغير الاستكاتيكى عغتفظاً 


. للتصريح عن متغير ستاتيكي : تستخدم الكلمة الحجوزة Siar eke‏ عوضا عن "01 


SUS COUNLETE 0) 
Static counter As Integer 


Counter = counter + 1 


End Sub 


3. المتغيرات على مستوى الوحدة البرجحية والمتغيرات العامة: 


° تعرف الغيرات على مستوى الوحدة بإستخدم الكلمة المحجوزة 51۳0 أş Private‏ 


متغيرات على مستوى الوحدة 


Dim x As Integer 


Private y As Integer 


Sub Malin () 


End Sub 


Sub Test () 
Jy = 10 
ENG SUS 


٥مuط11‎ ٤c آما المتغيرات العامة استخدم الكلمة المحجوزة‎ ١ 


Publlc x As Integer 
متغیر عام‎ ¢ 


Sub Main () 


End Sub 


Sub Test () 


× يمكن الوصول إلى المتغير ‏ 1- 


End Sub 


التو ع 
Boolean‏ 
Byte‏ 
Char‏ 
Date‏ 


LFecirmal 


Double 


النوع 


Long 


Object 


Short 


Sıngle 


String 


انواع المحتغيرات : 


الحجم | مجال القيمة 

2 يليت True‏ (صج) False gl‏ ([خطا) 
1 یایت عدد صحیے من 0 إلی 255۔ 

2 يليت حرف و احد من تو چ .INICODE_‏ 


8 بلیت و قت من الساعة 0:00:00 إلى الساعة 11:59:59ء كما 


تام 9999 
6 بایت عدد صحیے من 0 إلی 

TU AAS TOA. 5S LAL ACA 337503 5413050 SH 

آو عشري من 0 إلى 


5 بلیت عدد عشر ي من ۳308+Eغ70E‏ 797693134862315 .1 إلی 


E-3 4‏ 346 1 4.940656458 بالتسبة للاعد اك 
الساليبة. ومن 

E-3 24‏ 246 1 4.940656154 إلى 

08 +1570 1.7976931348623 بالتسية لل“عداد 


: ك 1 الق ۳ 


8 بایت عدد صحيح من ¬ 23,372,036,854,775,808 
للى 9,223,372,036,854,775,807. 

4 بایت جميع القيم والأنواع يمكن حفظها هنا. 

2 وات عدد صحيح من - 32,768 إلى 32,767. 

4 بایت عدد عشري من 3.40282358+38 إلی ٣-‏ 
5 بالنسبة للأعداد السالبة۔ ومن ٤-‏ 
5 إلى 3.40282358+38 بالنسبة 

0 + (2 * عدد من 0 إلى 2 مليار حرف من .UNICODE # gi‏ 

الحروف) بايت 


. 


Q0 


استخدام التركيبات ( ©۲ 1 اC°UC‏ ۲ا6( : 


لsهإ٣ يعرف هذا النوع من التركيبات بالأنواع المعرفة من قبل المستخدم‎ ١ 
Defined Types 


بحيث تمكنك من دمج أنواع ختلفة من المتغيرات وضمها قي تركيب أو كتلة واحدة. 
* لتعريف تركيب حجديد استخدم الكلمة امحجوزة ۲€ U‏ EئrFUuC٤S‏ 
© ن 


SLEUCLUELGS FECTED 
Dim Name As String 
Dim Age As Integer 

End Structure 


ae > SIE DESO ceo LCN SS ID LS 
Object, ByVal e As System.EventArgs) 


Dim al1 As Person 
al1.Name = " ahmad “ 
al1.Age = 69 


Response.Write(al1.Name & *“ " & 
al1.AGge ) 


End Sub 


استخدام التركيبات ( 1۲€ ٤ا ]10°C‏ ]ا :)S5S‏ 


لsهإ٣ يعرف هذا النوع من التركيبات بالأنواع المعرفة من قبل المستخدم‎ ١ 
Defined Types 


١‏ بحيث تمكنك من دمج أنواع مختلفة من المتغيرات وضمها قي تركيب أو كتلة واحدة. 
° لتعريف تركيب حديد استخدم الكلمة امحجوزة ۲€ Struc J‏ 


مثال: 


التعريف التركيت ر SLructLure Person‏ 


Dim Name As String 


Dim Age As Integer 
ENG SETUCEUEE 


FEOLCECLEEGO SUS FE DOOIBVVAL SENOET 2A 
Object, ByVal e As System.EventArgs) 


Dim al1 As Person 
al1.Name = " ahmad “ 
al1.Age = 69 


Response.Write(al1.Name & *“ " & 
al1.AGge ) 


End Sub 


:NesS t€ dQ) التركيبات المتداحلة‎ 


Partial Class Default 
Inherits System.Web. Ul. Page 
SLIrUCTurE Person 
Structure AddressStruct 
Dım City As String 
Dim Countrey As String 
End Structure 
Dım Name As String 
Dım Age As Integer 
Dim Address As AddressStruct 
End Structure 
Protected Sub Page Load(ByVal sender As Object, ByVal e As Syste 
Dim al1 As Person 
al1.Name = " ahmad "™ 
al1.Ags = 69 
al1.Address.City = " Irbi1d"™ 


al1.Address.Countrey = " 7ordan " 
Response.Write (al1.Name & "<br>" & al1.Address.C1ity] 
End Sub 
End Class 


Partial Class Default 
Tnherits System.Web. Ul .Paqge 


SLTIUCTUrSe CuUSToOmMEer 
Dim Name As String 
Dim Incomes As Decimal 
Dim Deliveryzione As Integer 
Function DeliveryCost (J) As Decimal 
Tf Deliveryaone > 3 Then 
Return Z5 
Else 
Return CDec (l2 . 5)} 
End If 
End Function 
End Structure 
Protected Sub Page Load(ByVal sender As Object, ByVal e 
Dim buyer As Customer 
buyer. Name = "Martha" 
buyer. Income = ZUUU0 
buyer.Deliveryaone = 1] 
MsqBozx (buyer .DeliveryCost) 
End Sub 
End Class 


اساسيات فيجوال بيسك دوت نت( N٥‏ . ۷8): 
-للبدء في عملية البرغغحة 1€ 82S1 C-.‏ ۷1121 بطريقتين : 


* اما بالضغط على زر الفارة الامن مرتين متتاليتين فتظهر صفحة ونحتب 
الكود داحلها 


۰ او باستخدام S٣1٥‏ ي ال S01۲۵‏ داحل صفحة ال 


HTML 
:)Sc٣1 التعرف على علامة الترميز ( م‎ 


<% 4 Faqs Lanquaqe= "YEB" > 
#4 I DOCTYPE html PUBELIC "—-FJfJW3C/ FDTD XHTML 1.0 Transitil 


KX SCFIpPptE rFunat="seryver™ 
Sub Pages Load () 


Dim s5 As String = "welcome "™ 
Dim x As String = InpuUutBEox{ "enter your name™ } 
Response.Write ls & "<br>" & xX) 
End Sub 
&# SCFIpE>™ 
AhLmML Emlns="hNlLILpD: 7 J$ WHWH. WS. OF 1999/7 htm L1" 
head FUnNnaLt=" seFrTer "y> 
SS ELELe™><7tEItle> 
&*# headz> 
body? 
XEForm 1A="forml™" runat="server"> 
e 
KK AIT 
4# EFormz> 
</body> 
4# htmlz 


الوحدة السادسة : 


:ObjJect OF1€1^ 8AQA) ةgرب عمليات‎ 


مثال من الواقع على الكائنات ا٤‏ [06 

8 التعرف على بعض المفاهيم الخاصة بعملية برجة الكائنات 
انشاء الفغقات 

استخدام الفغة في انشاء الكائن 


استخدام الأساليب 78۸05 ۳UNCT1ONS /M£‏ والخصائص 
PROPER TES‏ لل zدرجة‏ فی الکائنات 


ابا نسخ متعددة من احدى الفئات 
المتغيرات الخاصة وامكانية الوصول اليها 
الكائنات المدرحة داخحل بعضها البعض 
يكن تحريل 8E £1 E1٣6٥‏ إل فة باستخدام الكلمة امحجرزة :C138686S‏ 
Structure Person‏ 
Dim name as string‏ 


Dim Age AS Integer 
End Structure 
Class Person 

Dim name AS String 
Dim Age AS Integer 


End Class 


نقطة الاحتلاف الرئيسية بين الفغات والتركيبات هي أن الفقات من النوع 


Value Type jil الركیبات من‎ اnRe‎ ference Type 

* قابلية الوصول حتويات الفغة تختلف عن قابلية الوصول حتويات التركيبات 
* قابلية الوصول الافتراضية في الفنات هي هخ ٥٣172‏ 
* أمامع التركيبات فهي 1٤‏ 1(طن؟ 
مغال :- 
انشاء الفعغات 
- لتعريف الفغة: 

Class Person 

PUDDLE Name AS STLEING 


Publlc Age As Integer 


End Class 


تعریف متغیر یسمی کائن واعطاء القيم للمتغيرات 


Dim ob] As New Person () 
mahmoud " ob]J.Name = " ali1 
obj] .Age = 99 


Response.Write (obj .Name 


Partial Class Default 
Inherits System.Web.UI. Page 


Llass Person 
Public Name As String 
Public Age As Integer 
End Class 


Protected Sub Page Load(ByVal sender As Object, 
Dım all As New Person () 
a11.Name = " al1 mahmoud " 
al1.Agqe = 99 
Response.Write (ali .Name)| 


End Sub 
End Class 


أما إن أنشأت إجراء(سواء ٣طت‏ ذخعصن۴ أو طداS‏ ) فمحدد الوصول الافتراضي 
Public‏ 


Class Person 

Sub Publ1cMethod () ' Public 

ENG SUG 

Public Sub Publ1cMethod2 () ' Public 
BENQ SUS 

Friend Sub FriendMethod () ' Friend 
ENG CU 


Private Sub PrivateMethod () ' Private 


End Sub 


End Class 


Class PersonClass 


End Class 
' رسالة خطا‎ 
SLructure PersonStructure 


End Structure 


Partial Class Default 
Inherits System.Web.UI .Page 


Class Person‏ ا[ 
Public Name As String‏ 
Public Age As Integer‏ 
Public Address As String‏ 
Sub SetValues (EyVal PersonName As String, _‏ أ 
ByVal PersonAqgs As Integer, Byval PersonAddress As St.‏ 
Name = PersonName‏ 
Aq = PersonAge‏ 
Address = PersonAddress‏ 
End Sub‏ ت 
Sub print (}‏ 1 
("hello " & Name)‏ ګMsqEOoOx‏ 
End Sub‏ ج 
End Class‏ . 


1 Protected Sub Pags Load(ByVal sender As Object, ByVal e A 
Dim ob] As New Person () 
ob3.SetValues (" ahmad", 29, "7ordan"™)} 
ob] -print {} 

End Sub‏ ت 

-End Class 


کر 


CLASS COE a 

محتوي على : 
1. نوع و رقم السيارة ونمنها ولوغا, علما بأن الثمن عا 172١م‏ 
2. ونحتوي اقتران يطبع يع الات 


3. و اقتران يدحل جيع قيم المتغيرات من خلاله 


(Propre T€ sS) استخدام الخصائضص‎ 


Class PersonClass 


Property BirthDate() As Date ' 
5a ا٥ خاصية من النوع‎ 
End Property 


End Class 
يمكنك إضافة اجرائين في هذه الخاصية:‎ 
الإجراء الأول هو ع والذي يتم استدعائه عند قيام بقراءة قيمة الخاصيةز‎ - 
اما الإجراء خهS فسيتم استدعائه عند إسناد قيمة جديدة مستخدم الفئة‎ 
كما يفضل استخدام متغير وسيط خاص ا172١ يحمل قيمة الخاصية‎ ١ 
' متغير وسل يحمل قبهة الخاصة‎ 


Private m BirthDate As Date 


Property BirthDate() As Date 
Get 
Return m BirthDate 


End Get 
لا بد من ان تطابق نوع قعهة الخاصةٍ مع الوسچة‎ ۷1 e ` 
وهو‎ 2Da كما ترك ارسالھا بالقية هخ‎ BV a1 
Set (ByVal Value As Date) 
m _ BirthDate = Value 


End Set 
End Property 
:)P٥اr٥pم‎ ۲ا1٥ كيفية استدعاء الخصائص(5‎ 
Dim a As New PersonClass () 
a.BirthDate = #1/1/1903F# 
Response.Write (a.B1irthDate) 


فال ؟ 


Partial Class Default 
Tnherıiıts System.Web. UI .Pagse 
Class pat 
Prıvats msFIirstNames As String 
Publ1ıc Property FirstName (] As String 


2 
Re tUrEHn msFlrstNamse 
End Get 
Set (ByVal Talus As String) 
msFLrSstNams = Yalus 
End Set 


End Property 
End CLIass 


Protected Sub Page Load{ByYVal sender As ûl 
Dim Patl As New pat (J) 


Fatl-.F1ırstNamcs = "Bob" 
MsqBOۍګ‎ (PFatl. FirstName }] 
End Sub 


End Class 


المتغيرات الخاصة وامكانية الوصول اليها : 


Partial Class Default 
Inherits System.Web. Ul. Page 
Class Person 
Public Name As String 
Private Aqs As Integer 
Public AdAddress As String 
Sub SetValues (ByVal PersonName As String, _ 
BEyVal PersonAqgqe As Integer, Eyval PersonAddAress As String) 
WNams = PersonNamea 
AS = PersonAge 
Address = PersonAddress 
End Sub 
Sub print (J) 
MsqEozx ("hello " & Name) 
End Sub 
End Class 
Class perl 
Public name As String 
Public age As Integer 
Public Sub check (] 
Dim o As New Person (] 


TE name = o50.WNams Then 
MsqGBoOo#¥ "هتا الاسم کر"(‎ ( 
Elss 
MsSTEOXE ("we lcome"™ & name] 
End If 
End Sub 


End Class 


مال 


Protected Sub Page_Load (ByVal sender As Object, ByVal e As System.EventArgs) F 
Dim obj As New Person () 
ob] .SetValues ("ahmad", 29, "jordan") 


obj] .print () + » | 
Dim c2 As New peril () س‎ 
c2.name = Input8ox (" pil Jخëدا")‎ : 
c2.check () Fuannn n wm BS J 
End sub : 
End Class 


File Edit View Website Build Debug Tools Window Help ull Screen 
Default.aspx.wb  Default.aspx e 
# (Page Events] 
: Public Address As String 
Sub SetValues (EyVal PersonName As String, 
ByVal PersonAqgqs As Integer, ByVal PersonAddress As String) 
Name = PersonName 
AJ = PersonAge 
Address = PersonAddress 
End Sub 
Sub print {} 
MsqBOoOxE ("hello " & Name) 
End Sub 
End Class 
Class perl 
Public names As String 
Public aqs As Integer 
Public Sub check (ByRef o0 As Person] 


TF name. Equals (o50.WName)} Then 


( "هتا الاسم مگرر"( MsgBox‏ 
Else‏ 


MsqBozx ("welcome " & name] 
End If 
End Sub 
End Class 
Protected Sub Page Load(ByVal sender As Object, BEyVal e As System.EventArgs) Handles Me 
Dim ob] As New Person (]) 
ob] .SetValues ("ahmad"™", 23, "jordan"”} | 
ob] -prFint {J} 
Dim c2 As New perl (J) 
cê .name = TnputEOX(" gwll JEa2ا"}‎ 
cã . check (ob) 
End Sub 
End Class 


Ready Ln 32 ا0‎ 45 Lh 45 IN: 


کال 


Partial Class _Default 


Inherits System Web . UI . Page 
Class Person 
Public Names As String 
Private Age As Integer 
Public AQdAress As String 
Sub SetValues (ByVal PersonNames As String, 


ByVal PFersonAgs As Integer, BEyval PersonAddress As String) 


Nama = PersonNames 

AE = PerSsonAqES 

Address = PersonaAddress 
End Sub 
Sub print ({} 

MsqEox ("hello " & Name] 
End Sub 

End Class 


Protected Sub Page Load(ByVal sender As Object, ByVal e As Sys 


Dim ob]11 As New Person (J) 
ob]1.Setvalues ("ahmad™", 239, "3 ordan™ J} 
ob31-print {} 
Dim obj]2 As New Person (J) 
ob372 -Nams = "al]l1 
'ob] 2A .aqs = 34 erorr aqs 1s private we cannot access 
ob32 -AQdAress = "syrla™ 
ob32 print (]} 

End Sub 


End Class 


الكائنات المدرجحة داخحل بعضها البعض :- 


Zlass school 

Public classes As String 

Public nstd As Integer 

Dim st As Naw std} 

Sub setvalus () 
classes = InputEox("aall ڪp؛wسl‎ J#êدا")‎ 
nstd = InputEBEox("يٺlطÜlil ("ادعغل غعدد‎ 
Dim n As String = InputEozx ("pڪءwl‎ Jëaاl‎ ") 
Dim m As Integer = InputBozx ("aiaîlszll JEêaد1"}‎ 
st.setvalue (n, mM) 

End Sub 

Class std 
FPFublic name As String 
Public mark As Integer 
FPFubl1ic Sub setvalue (ByVal n As String, ByVal m As Integer) 

name = n 
mark = m 

End Sub 

End Class 

Fublic Sub print () 
MsgBox (st.names & 

End Sub 

End Class 


your mark is " & st.mark) 


Protected Sub Page Load(ByVal sender As Object, EyVal e As System.EventArgs) Handles 


Dim sc As New school {]} 
sc.setvaluse () 
sc.print () 

End Sub 

Class 


- End 


الوحدة السابعة: 
مهام الکائنات:- 


: ARRAY اللصفوفات‎ 


يتوقع من الطالب ف هذه الوحدة ان يكون قادرا على : 

Array 11st التعرف على‎ * 

Array List je Jli ° 

Array List jz تامولعلkا لزيد من‎ * 

Hash. TaDLê edl ° 

Hash Table التعرف على‎ * 

* اضافة العناصر وتغييرها بصورة مباشرة ف 1€ ط14 ]1aS1‏ 
المزيد من المعلومات عن Hash Table‏ 


*How to important Array List in VB.NET? 


Is one of the most flexible data structure from Array Ltst 
VB.NET Collections. 


- Array List contains a simple list of values. 


- Very easily we can add , insert , delete , view etc.. tO 
do wıth Array Lıst. 


- It 1s very flex1ble because we can add wıthout any S1ze 
information , that 1s 1t grow dynamically and also 
shrink. 


* Important functions in Array LIst 
-Add : Add an Item 1n an ArrayList 


-Insert : Insert an Item 1n a specified position 1n an ArrayList 
-Remove : Remove an Item from ArrayList 

-RemoveAt: remeove an 1tem from a specified position 

-Sort : Sort Items 1n an ArrayList 

*How to Add an Item in an Array List? 

- Syntax : ArrayList.add(Item) 

- [Item : The Item to be add the ArrayList 

= Dim ItemList As New ArrayList() 

=[ItemList.Add('"Item4"") 

*How to Insert an Item in an Array LIst? 


Syntax : ArrayList.insert(index, item‏ -ر 

index : The position of the item in an ArrayList 
- [Item : The Item to be add the ArrayList 

- [temList.Insert(3, “‘itemO ”) 

“* How to Remove an item from array List? 


Syntax : Array List. Remove (ttem — 


Item : The Item to be removed the Array List — 


Item List. Remove(“item2”) ° 


*How to remove an item In a specified position from 
an Array list 


- Syntax : Array List. RemoveAt(index) 


- index : the position of an item to remove from an 
Array Lıst 


- Item List. RemoveAlt(2) 


*How to sort Array List 


Syntax : Array LIst.Sort( ) 


مال ` 


Partial Class _ Default 
Trnher1ıklkts Sys Lem . Web. UTI . Pages 


Private Sub Buttonl Click(BYVal sender As Sy 

Lim 1 As Tntsgqer 

Lim TteoemL1ıstkt As New ArraylLaıst (] 

TEeEmMmL LSE .-. AMA {" TEteoem4 "™" J 

TEeeEML LSE - AAA {" TEomS "" J 

TEeEmDL LSE - AAA {" TEeoem 2Z " J 

TEeEeEmMmL LSE . AMA {" TEem 1 ”™ J 

TEeeEmL LSE - AAA {(" TEeom3 ™" J 

Ms Bons ("Shows Added TLEmMS"™ } 

Far 1 = Û To TtemUL1st - Count — 1 
MsqGBEOۍ=‎ (LtemL1st . LTLtem (A7 7 

sez CL 

"Insert an 1term 

TEeeEmDLuLSE .- Tnsert {3, "TIT ltembo"™ J} 

"sort 1Ltemms in an arraylaiıst 

TEEeEML LSE - SOFTEE (J 

"'TeMOTeS an 1term 

TEeEMmMDL LSE . Remowe {( " TEeoerm 1l ™" J 

'"'rFTemoweoe 1teoem From a specifica Index 

TEEeEMTL LSE . RemoTeoeAE (37 

MsqBEOۍ=‎ ("Shows Final Ttems the ArrayList™ 

For 1 = ÛO To TtemLl1ust - Count — 1 
MsqBEOۍ=‎ (LtemL1st . TLtem (A17 7} 

CS wl 

Era Sub 
Ena {EZElIlIass 


ب چ Properties‏ 


Buttonl System.Web. ULWebkont 


Bold False 

Italic False 

Marne Ll 

Marmes 

OvwerlinE False 1 
SIze XX-Large 


Strikeout False 
LWnderline False 
Forekolor 
Text click 
El Behavior 
LausesValidath True 


LommandArgı 


LommandNan 

Enabled True 
EnableThemim True 
EnableViewStal True 1 
OnClientklick 

PostBackUrl 

SkınlD 

ToolTip 

LWIseSubmitBeh. True 


ج 


